home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / game / misc / DiamondTools17.lha / Editor1.1 / InstallEditor next >
Text File  |  1995-06-04  |  4KB  |  135 lines
  1. ; $VER InstallEditor 1.1 (04.06.95)
  2.  
  3. (set Update 0)
  4. (set version 0)
  5. (set DrawerName "DC:")
  6.  
  7. (complete 0)
  8. (if (exists "DC:" (NOREQ))
  9.     (
  10.  
  11.         (if (exists "DC:DiamondEditor" (NOREQ))
  12.             (
  13.                 (set vernum (getversion "DC:DiamondEditor"))
  14.  
  15.                 (set ver (/ vernum 65536))
  16.                 (set rev (- vernum (* ver 65536)))
  17.  
  18.                 (set version (+ (* 100 ver) rev))
  19.  
  20.                 (if (> version 100)
  21.                     (
  22.                         (message "You have already installed a version greater or equal 1.1!\n")
  23.                         (exit (quiet))
  24.                     )
  25.                 )
  26.  
  27.                 (set Update
  28.                     (askchoice
  29.                         (prompt "Diamond Caves Editor V" ver "." rev " already installed.\nDo you want to update or install completely new?")
  30.                         (choices "Install new" "Update")
  31.                         (help "Soory, no help-file.")
  32.                         (default 1)
  33.                     )
  34.                 )
  35.             )
  36.         )
  37.     )
  38.     (
  39.         (message "Directory "DC:" not found!\nYou need an installed Version of Diamond Caves to run the Diamond Caves Editor.")
  40.         (exit (quiet))
  41.     )
  42. )
  43.  
  44. (if (= Update 1)                  ; only Update according to present Version
  45.     (
  46.         (complete 30)
  47.         (if (< version 100)         ; this is only for versions <1.0 (gfx-data)
  48.             (copyfiles
  49.                 (prompt "Copying necessary files to \"" DrawerName "\".")
  50.                 (help @copyfiles-help)
  51.                 (source "new")
  52.                 (dest DrawerName)
  53.                 (all)
  54.                 (infos)
  55.             )
  56.         )
  57.  
  58.         (complete 60)
  59.         (if (< version 101)         ; update from V1.0 (main-prg, guide)
  60.             (copyfiles
  61.                 (prompt "Copying necessary files to \"" DrawerName "\".")
  62.                 (help @copyfiles-help)
  63.                 (source "UpdateFromV1.0")
  64.                 (dest DrawerName)
  65.                 (all)
  66.                 (infos)
  67.             )
  68.         )
  69.  
  70.     )
  71.  
  72.     (                             ; new install: copy everything to "DrawerName" (should be "DC:" !)
  73.         (complete 10)
  74.         (set icons
  75.             (askchoice
  76.                 (prompt "What kind of Icons do you want?\n")
  77.                 (choices "normal" "MagicWB" "none")
  78.                 (help "Soory, no help-file.")
  79.                 (default 0)
  80.             )
  81.         )
  82.  
  83.         (if (= icons 0)
  84.             (
  85.                 (copyfiles
  86.                     (prompt "Copying necessary Icons to \"" DrawerName "\".")
  87.                     (help @copyfiles-help)
  88.                     (source "Icons/normal")
  89.                     (dest DrawerName)
  90.                     (all)
  91.                     (infos)
  92.                 )
  93.             )
  94.         )
  95.         (if (= icons 1)
  96.             (
  97.                 (copyfiles
  98.                     (prompt "Copying necessary Icons to \"" DrawerName "\".")
  99.                     (help @copyfiles-help)
  100.                     (source "Icons/MagicWB")
  101.                     (dest DrawerName)
  102.                     (all)
  103.                     (infos)
  104.                 )
  105.             )
  106.         )
  107.  
  108.         (complete 30)
  109.         (copyfiles
  110.             (prompt "Copying necessary files to \"" DrawerName "\".")
  111.             (help @copyfiles-help)
  112.             (source "new")
  113.             (dest DrawerName)
  114.             (all)
  115.             (infos)
  116.         )
  117.  
  118.         (complete 60)
  119.         (copyfiles
  120.             (prompt "Copying necessary files to \"" DrawerName "\".")
  121.             (help @copyfiles-help)
  122.             (source "UpdateFromV1.0")
  123.             (dest DrawerName)
  124.             (all)
  125.             (infos)
  126.         )
  127.  
  128.     )
  129. )
  130.  
  131. (complete 100)
  132. (message "\nDiamond Caves Editor V1.1 installation/update complete.\n\nHave fun!")
  133.  
  134. (exit (quiet))
  135.